home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / MENU / GETLEFT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-02  |  426 b   |  26 lines
  1. {takes from the .VGA the little Pinballtable}
  2. uses dos,crt;
  3. var f:file of byte;
  4.     f1:file of byte;
  5.     b:byte;
  6.     y,x:word;
  7. begin
  8.   assign(f,paramstr(1));
  9.   assign(f1,paramstr(2));
  10.   reset(f);
  11.   rewrite(f1);
  12.   writeln;
  13.   for y:=1 to 150 do
  14.   begin
  15.     write('.');
  16.     for x:=1 to 82 do
  17.     begin
  18.       read(f,b);
  19.       write(f1,b);
  20.     end;
  21.     seek(f,y*320); 
  22.   end;
  23.   close(f);
  24.   close(F1);
  25. end.
  26.